0 PRINT"[147]"TAB(13)"EASY AS ..."
1 REM ==================================
2 REM    COMMODARES PROBLEM #49-4 :
3 REM      EASY AS ...
4 REM    SOLUTION BY
5 REM      E. HORMATS
6 REM ==================================
10 PRINT"MONTE CARLO METHOD"
20 INPUT"NUMBER OF CYCLES WANTED";CY
30 PRINT"":P=0
40 FOR I=1 TO CY
50 X=RND(0): Y=RND(0)
60 Z=X*X+Y*Y
70 IF Z>1 THEN 90
80 P=P+1
90 PRINT"AT ";I"[145]"
100 NEXT I
110 PI=4*P/CY
120 PRINT"VALUE OF [255] AFTER"CY "TRIALS IS = ",PI
130 PRINT"ANOTHER TRY (Y/N)"
140 GET A$: IF A$="Y" THEN 20
150 IF A$="N" THEN END
160 GOTO 140